returnsSummary <- function(x) {
  if('package:e1071' %in% search() || require('e1071',quietly=TRUE)) {}
  mat <- apply(x, 2, function(x) 
    c(summary(x),
      sd=sd(x), 
      skewness=skewness(x),
      kurtosis=kurtosis(x)))
  return(mat)
}